100 GOTO330
110 :     HI-RES PICTURE LOADER
120 :
130 :         FIRST WRITTEN
140 :              BY
150 :
160 :            DON WHITE
170 :         47 ARIEL COURT
180 :        NEPEAN, ONTARIO
190 :            K2H 8J1
200 :
210 :          613-829-2082
220 :
230 :
240 :          RE-WRITTEN
250 :              BY
260 :
270 :         DAVID A. KIRK
280 :        1210 BALDWIN RD
290 :       LAPEER, MI  48446
300 :
310 :          313-664-9490
320 :
330 IFPEEK(167)=0THEN630
340 IFPEEK(167)=1THEN640
350 :
360 REM CHANGE BORDER OR SCREEN COLOR           WITH 'RETURN' GOING TO MENU
370 :
380 R=C(T):S=INT(RND(1)*16)
390 POKE53280,S:POKE667,R:SYS828
400 U=PEEK(203):IFU=64THEN400
410 IFU=1THEN500
420 IFU=7AND(PEEK(653)=0)ANDR>1THENR=R-1:GOTO390
430 IFU=7AND(PEEK(653)=1)ANDR<255THENR=R+1:GOTO390
440 IFU=2AND(PEEK(653)=0)ANDS>0THENS=S-1:GOTO390
450 IFU=2AND(PEEK(653)=1)ANDS<15THENS=S+1:GOTO390
460 GOTO400
470 :
480 REM       MENU SCREEN
490 :
500 POKEV+17,27:POKEV+24,21:PRINT"[147]":T=1
510 PRINT"    LAST PICTURE":FORI=1TON:PRINTSPC(4)P$(I):NEXT
520 PRINT"[192]>[145]
530 U[178][194](203):[139]U[178]64[167]530
540 [139]U[178]7[175]([194](653)[178]0)[175]T[179]N[170]1[167]T[178]T[170]1:[153]"  CMDCMDTAN>CMDCMD";
550 [139]U[178]7[175]([194](653)[178]1)[175]T[177]1[167]T[178]T[171]1:[153]"  CMDCMDONTAN>CMDCMD";
560 [139]U[178]1[167]580
570 [137]530
580 [139]T[178]1[167][151]V[170]17,59:[151]V[170]24,25:[153]"LOAD":[137]390
590 [151]V[170]17,59:[151]V[170]24,25:T[178]T[171]1:[153]"LOAD":[147] P$(T),8,1
600 :
610 [143]       INITIALIZATION
620 :
630 [151]167,1:[147]"SCREEN",8,1
640 [151]167,2:[156]:[140]:T[178]0:N[178]20:V[178]53248:[134]P$(N),C(N)
650 [129]I[178]1[164]N:[135]P$(I),C(I):[130]:[137]760
660 :
670 [143] PICTURE NAME DATA AND INITIAL           COLOR DATA
680 :
690 [131] SPIRAL.1,7,SUE,28,KAREN,28,SNOOPY,12,ALBERT,235
700 [131] DOLLAR,80,DIP,16,SNAIL,7,DES.1,5,7-3HILL,6
710 [131] MUSIC,2,MAP,16,DIANE,48,WILLY,112,RACCOON,144
720 [131] SINCOS1,3,WATCH,16,WINSTON,28
725 [131] MICROMETER,139,NUDE,28
730 :
740 [143]       INSTRUCTIONS
750 :
760 [153]"LOAD  USE THE VERTICAL CURSOR FOR SELECTING   A PICTURE.
770 PRINT"  PRESS THE RETURN WHEN A SELECTION HAS   BEEN MADE.
780 [153]"  AFTER LOADING A PICTURE, YOU MAY USE
790 PRINT"  THE VERTICAL CURSOR TO CHANGE THE       COLOR OF THE SCREEN, AND
800 [153]"  THE HORIZONTAL CURSOR FOR THE           BORDER COLOR.
810 PRINT"  PRESS THE RETURN KEY WHEN FINISHED      VIEWING A PICTURE.
820 [161]A$:[139]A$[178]""[167]820
830 [137]500